home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Original Shareware 1.1
/
The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso
/
32
/
cadence.zip
/
VOL1NO3.ZIP
/
STAIR.LSP
< prev
next >
Wrap
Text File
|
1987-05-18
|
711b
|
26 lines
(defun C:STAIR ()
(SETQ A (GETPOINT "\n Touch top Starting Point Of Staircase: "))
(SETQ VER (GETDIST "\n Enter The Staircase Vertical Height: "))
(SETq HOr (GETDISt "\n Enter The Horizontal Length Of One Stair:"))
(SETQ X (CAR A))
(SETQ Y (CADR A))
(SETQ VER1 (/ VER 7.5))
(SETQ VER2 (fix VER1))
(SETQ VER 3 (+ VER2 0.5))
(if (>= VER1 VER3)
(SETQ W (+ VER2 1.0))
(SETQ W VER2))
(SETQ W1 (/ VER W))
(SETQ ANG1 (* pi (/ 270.0 180.0)))
(SETQ ANG2 (* pi (/ 0.0 180.0)))
(SETQ S 1)
(WHILE (<= S W)
(SETQ PT1 (polar (LIST X Y) ANG1 W1))
(SETQ PT2 (polar PT1 ANG2 HOR))
(command "LINE" (LIST X Y) PT1 PT2 "")
(SETQ X (+ X HOR))
(SETQ Y (- Y W1))
(SETQ S (+ 1 S)))
(command "ERASE" "L" "")
)